SOS`````

来源：百度知道 编辑：UC知道 时间：2024/09/23 05:24:57
Cls
Dim a%, b%(100)
Print "随机数如下："
Randomize
For a = 1 To 100
b(a) = (Rnd * 998) + 1
Print " "; b(a);
If a Mod 10 = 0 Then Print
Next
For a = 1 To 99
For j = a + 1 To 100
If b(a) > b(j) Then jh = b(a): b(a) = b(j): b(j) = jh
Next
Next
Print "排序如下："
For a = 1 To 100
If b(a) Mod 2 = 0 Then Print " "; b(a);
If a Mod 10 = 0 Then Print
Next
怎么做我输出偶数的个数 才能一排 摆 10 个哪！！！！

Cls
Dim a%, b%(100)
Print "随机数如下："
Randomize
For a = 1 To 100
b(a) = (Rnd * 998) + 1
Print " "; b(a);
If a Mod 10 = 0 Then Print
Next
For a = 1 To 99
For j = a + 1 To 100
If b(a) > b(j) Then jh = b(a): b(a) = b(j): b(j) = jh
Next
Next
j = 0
Print "排序如下："
For a = 1 To 100
If b(a) Mod 2 = 0 Then
Print " "; b(a);
j = j + 1
If j Mod 10 = 0 Then Print
End If
Next